﻿Namespace Muhasebe.Cek
	Module Functions

		Sub Guncelle(ByVal Token As Token, ByVal cekkod As String, ByVal cekno As String, ByVal iptalkod As String, ByVal boztar As String, ByVal banklistno As String)
			Q("update muhasebe..cek set iptalkod = @iptalkod, boztar = @boztar, islemtar = getdate(), bankalistno = @banklistno")
			Q("where cekkod = @cekkod and cekno = @cekno")
			Token.ExecSQL("*", If(iptalkod = "NULL", DBNull.Value, iptalkod), boztar, banklistno, cekkod, cekno)
		End Sub
		Sub Guncelle2(ByRef RS_ As Recordset)
			RS_.Save()
		End Sub

		Function Oku(Token As Token, cekkod As String, cekno As String) As Recordset
			Return Token.OpenSQL("select * from muhasebe.dbo.cek where cekkod = @cekkod and cekno = @cekno", cekkod, cekno)
		End Function

	End Module
End Namespace